home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / ace_gpl_release / src / lib / asm / misc.s < prev    next >
Encoding:
Text File  |  1998-10-04  |  11.8 KB  |  677 lines
  1. ;
  2. ; misc.s -- an ACE linked library module: miscellaneous functions.
  3. ; Copyright (C) 1998 David Benn
  4. ; 
  5. ; This program is free software; you can redistribute it and/or
  6. ; modify it under the terms of the GNU General Public License
  7. ; as published by the Free Software Foundation; either version 2
  8. ; of the License, or (at your option) any later version.
  9. ;
  10. ; This program is distributed in the hope that it will be useful,
  11. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. ; GNU General Public License for more details.
  14. ;
  15. ; You should have received a copy of the GNU General Public License
  16. ; along with this program; if not, write to the Free Software
  17. ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18. ;
  19. ; Author: David J Benn
  20. ;   Date: 3rd-30th November, 1st-13th December 1991,
  21. ;      20th, 23rd,25th-27th January 1992, 
  22. ;         2nd,4th,6th,12th-19th,21st-24th,29th February 1992,
  23. ;      1st,14th March 1992,
  24. ;      4th,7th,21st,22nd,26th April 1992,
  25. ;      2nd,3rd,5th,7th,8th,10th-17th May 1992,
  26. ;      6th,8th,11th,12th,28th,30th June 1992,
  27. ;      1st-3rd,13th,14th,18th-20th,22nd July 1992,
  28. ;      9th August 1992,
  29. ;      5th,6th December 1992,
  30. ;      6th January 1993,
  31. ;      7th,16th,18th February 1993,
  32. ;      1st,7th March 1993,
  33. ;      9th,25th,30th May 1993,
  34. ;      12th,16th,29th June 1993,
  35. ;      6th,25th September 1993,
  36. ;      9th,11th,25th,28th October 1993,
  37. ;      10th,15th November 1993
  38. ;      5th December 1993,
  39. ;      5th,7th,10th,12th-15th,23rd January 1994,
  40. ;      6th February 1994,
  41. ;      19th March 1994,
  42. ;      3rd September 1994
  43. ;
  44. ; registers d0-d6 and a0-a3 are modified by some of the following. BEWARE!
  45. ;
  46. ; a4,a5 are used by link/unlk.
  47. ; a6 is library base holder.
  48. ; a7 is stack pointer. 
  49. ; d7 is used for array index calculations.
  50. ;
  51.  
  52. ; * CONSTANTS *
  53.  
  54. PUBLIC        equ    1
  55. CHIP         equ    2
  56. FAST        equ    4
  57. LARGEST     equ    131072
  58. POTGO        equ    $dff034
  59. POT1DAT        equ    $dff014
  60. cp_x        equ    36
  61. cp_y        equ    38
  62. Font        equ    52
  63. tf_YSize    equ    20
  64. tf_XSize    equ    24
  65. UserPort    equ    86
  66. GZZMouseX    equ    108
  67. GZZMouseY    equ    110
  68.     
  69.        ; miscellaneous functions
  70.        xdef      _rnd
  71.        xdef      _absw
  72.        xdef      _absl
  73.        xdef      _sgnw
  74.        xdef      _sgnl
  75.     xdef    _inputshort
  76.     xdef    _inputlong
  77.     xdef    _stick
  78.     xdef    _strig
  79.     xdef    _mouse
  80.     xdef    _fre
  81.     xdef    _potx
  82.     xdef    _poty
  83.     xdef    _err
  84.     xdef    _testerror
  85.  
  86.     ; miscellaneous routines
  87.     xdef    _randomise
  88.     xdef    _open_library
  89.     xdef    _close_library
  90.     xdef    _printLF
  91.     xdef    _printspc
  92.     xdef    _printqun
  93.     xdef    _sleep
  94.  
  95.     ; exportable symbols
  96.     xdef    _error_code
  97.     
  98.        ; external references
  99.     xref    _inputstring
  100.     xref    _short_from_string
  101.     xref    _long_from_string    
  102.     xref    _strlen
  103.     xref    _strip    
  104.        xref      _RangeRand
  105.     xref    _RangeSeed
  106.     xref    _DOSBase
  107.     xref    _LVODelay
  108.     xref    _LVOWrite
  109.     xref    _MathBase
  110.     xref    _LVOSPFix
  111.     xref    _LVOSPFlt
  112.     xref    _LVOSPDiv
  113.     xref    _LVOSPMul
  114.     xref    _LVOSPSub
  115.     xref    _LVOSPAdd
  116.     xref    _LVOSPCmp
  117.     xref     _AbsExecBase
  118.     xref    _LVOAvailMem
  119.     xref    _LVOGetMsg
  120.     xref    _LVOReplyMsg
  121.     xref    _LVOWaitPort
  122.     xref    _LVOOpenLibrary
  123.     xref    _LVOCloseLibrary
  124.     xref    _stdout
  125.     xref    _IntuiMode
  126.     xref    _Wdw
  127.     xref    _TaskAddress
  128.     xref    _Ustringinput
  129.  
  130.     SECTION misc_code,CODE
  131.  
  132. ;
  133. ; short & long abs functions. assumes short/long value in d0.
  134. ;
  135. _absw:
  136.        cmp.w #0,d0    ; num < 0?
  137.        bge.s _quitabsw
  138.        neg.w d0
  139. _quitabsw:
  140.        rts
  141.  
  142. _absl:
  143.        cmp.l #0,d0
  144.        bge.s _quitabsl
  145.        neg.l d0
  146. _quitabsl:
  147.        rts
  148.  
  149. ;
  150. ; short & long sgn functions. assumes short/long value in d0.
  151. ; result returned in d0 (-1,0,1).
  152. ;
  153. _sgnw:
  154.     cmpi.w    #0,d0
  155.     beq.s    _sgnwzero
  156.     blt.s    _sgnwneg
  157.     bra.s    _sgnwpos
  158. _sgnwzero:
  159.     moveq    #0,d0
  160.     rts
  161. _sgnwneg:
  162.     moveq    #-1,d0
  163.     rts
  164. _sgnwpos:
  165.     moveq    #1,d0
  166.     rts
  167.  
  168. _sgnl:
  169.     cmpi.l    #0,d0
  170.     beq.s    _sgnlzero
  171.     blt.s    _sgnlneg
  172.     bra.s    _sgnlpos
  173. _sgnlzero:
  174.     moveq    #0,d0
  175.     rts
  176. _sgnlneg:
  177.     moveq    #-1,d0
  178.     rts
  179. _sgnlpos:
  180.     moveq    #1,d0
  181.     rts
  182.  
  183. ;
  184. ; input a short integer value and return it in d0.
  185. ; see lex.c insymbol() function re: technique.
  186. ; (a1 = input buffer)
  187. ;
  188. _inputshort:
  189.     move.l    a1,-(sp)
  190.     jsr    _Ustringinput
  191.     jsr    _short_from_string
  192.     addq    #4,sp
  193.     rts
  194.  
  195. ;
  196. ; input a long integer value and return it in d0.
  197. ; see lex.c insymbol() function re: technique.
  198. ; (a1 = input buffer)
  199. ;
  200. _inputlong:
  201.     move.l    a1,-(sp)
  202.     jsr    _Ustringinput
  203.     jsr    _long_from_string
  204.     addq    #4,sp
  205.     rts
  206.  
  207. ;
  208. ; STICK - returns in d0 the state of a joystick (only port 2 at the moment).
  209. ;    - a parameter in d0 determines the port and axis to be sampled.
  210. ;    
  211. ;    The hardware is directly accessed by this routine (_joy1dat = DFF00C)
  212. ;    (see Amiga Hardware Reference Manual, pg 220). 
  213. ;    A future version will use the gameport.device.  
  214. ;
  215. _stick:
  216.     cmpi.w    #0,d0
  217.     beq.s    _stick0
  218.     cmpi.w    #1,d0
  219.     beq.s    _stick1
  220.     cmpi.w    #2,d0
  221.     beq.s    _stick2
  222.     cmpi.w    #3,d0
  223.     beq.s    _stick3
  224.  
  225.     moveq    #0,d0            ; none of the above
  226.     rts
  227.  
  228. _stick0:
  229.     ; game port 1 in x direction
  230.     moveq    #0,d0
  231.     rts
  232.  
  233. _stick1:
  234.     ; game port 1 in y direction
  235.     moveq    #0,d0
  236.     rts
  237.  
  238. _stick2:
  239.     ; game port 2 in x direction
  240.     move.l    _joy1dat,a0
  241.  
  242.     move.w    (a0),d1
  243.     andi.w    #2,d1
  244.     cmpi.w    #2,d1
  245.     beq.s    _stickpos    ; right
  246.  
  247.     move.w    (a0),d1
  248.     andi.w    #512,d1
  249.     cmpi.w    #512,d1
  250.     beq.s    _stickneg    ; left
  251.  
  252.     moveq    #0,d0        ; joystick not moving in x axis
  253.     rts
  254.     
  255. _stick3:
  256.     ; game port 2 in y direction
  257.     move.l    _joy1dat,a0
  258.  
  259.     move.w    (a0),d1
  260.     andi.w    #512,d1
  261.     move.w    (a0),d2
  262.     andi.w    #256,d2
  263.     eor.w    d2,d1
  264.  
  265.     cmpi.w    #256,d1
  266.     beq.s    _stickpos    ; up    
  267.  
  268.     move.w    (a0),d1
  269.     andi.w    #2,d1
  270.     move.w    (a0),d2
  271.     andi.w    #1,d2
  272.     eor.w    d2,d1
  273.  
  274.     cmpi.w    #1,d1
  275.     beq.s    _stickneg    
  276.     cmpi.w    #2,d1
  277.     beq.s    _stickneg    ; down
  278.  
  279.     moveq    #0,d0        ; joystick not moving in y axis
  280.     rts
  281.  
  282. _stickpos:
  283.     moveq    #1,d0
  284.     rts
  285.  
  286. _stickneg:
  287.     moveq    #-1,d0
  288.     rts
  289.  
  290. ;
  291. ; STRIG - returns in d0 the state of a joystick's fire button
  292. ;          (only port 2 at the moment).
  293. ;    - a parameter in d0 determines the port to be sampled.
  294. ;    
  295. ;    The hardware is directly accessed by this routine (_data_reg_A=BFE001).
  296. ;    A future version will use the gameport.device.  
  297. ;
  298. _strig:
  299.     cmpi.w    #0,d0
  300.     beq.s    _strig0
  301.     cmpi.w    #1,d0
  302.     beq.s    _strig1
  303.     cmpi.w    #2,d0
  304.     beq.s    _strig2
  305.     cmpi.w    #3,d0
  306.     beq.s    _strig3
  307.  
  308.     moveq    #0,d0            ; none of the above
  309.     rts
  310.  
  311. _strig0:
  312.     ; has joystick in port 1 fired since last strig(0)?
  313.     moveq    #0,d0        
  314.     rts
  315.     
  316. _strig1:
  317.     ; is joystick in port 1 currently firing?
  318.     moveq    #0,d0        
  319.     rts
  320.  
  321. _strig2:
  322.     ; has joystick in port 2 fired since last strig(2)?
  323.     moveq    #0,d0        
  324.     rts
  325.     
  326. _strig3:
  327.     ; is joystick in port 2 currently firing?
  328.     move.l    _data_reg_A,a0
  329.     move.b    (a0),d1
  330.     cmpi.b    #124,d1
  331.     beq.s    _firing
  332.     
  333.     moveq    #0,d0        ; fire button not pressed
  334.     rts
  335.  
  336. _firing:
  337.     moveq    #-1,d0
  338.     rts
  339.  
  340. ;
  341. ; MOUSE - returns in d0 information about the mouse (see ace.doc).
  342. ;    - a parameter in d0 determines what information is returned.
  343. ;
  344. ;    A future version of MOUSE(0) may use the gameport.device/Intuition.
  345. ;      
  346. ;
  347. _mouse:
  348.     cmpi.w    #0,d0
  349.     beq.s    _mouse0
  350.     cmpi.w    #1,d0
  351.     beq.s    _mouse1
  352.     cmpi.w    #2,d0
  353.     beq.s    _mouse2
  354.  
  355.     moveq    #0,d0
  356.     rts
  357.  
  358. _mouse0:
  359.     move.l    _data_reg_A,a0
  360.     move.b    (a0),d1
  361.     andi.w    #$40,d1
  362.     cmpi.b    #$40,d1
  363.     bne.s    _leftbutton
  364.     
  365.     moveq    #0,d0            ; left mouse button not pressed
  366.     rts
  367.  
  368. _leftbutton:
  369.     moveq    #-1,d0            ; left mouse button is being pressed
  370.     rts
  371.  
  372. _mouse1:
  373.     movea.l    _Wdw,a0
  374.     move.w    GZZMouseX(a0),d0    ; x-coordinate of mouse (Wdw)
  375.     rts
  376.     
  377. _mouse2:
  378.     movea.l    _Wdw,a0
  379.     move.w    GZZMouseY(a0),d0    ; y-coordinate of mouse (Wdw)
  380.     rts
  381.  
  382. ;
  383. ; FRE(n) - Gives info' about memory. d0=attribute. Returns long integer in d0.
  384. ; [attribute: -1=CHIP+FAST, 0=CHIP, 1=FAST, 2=LARGEST CHIP, 3=LARGEST FAST]
  385. ;
  386. _fre:
  387.     movea.l    _AbsExecBase,a6
  388.  
  389.     cmpi.w    #-1,d0
  390.     beq.s    _frecf        ; CHIP+FAST
  391.  
  392.     cmpi.w    #0,d0
  393.     beq.s    _frec        ; CHIP
  394.  
  395.     cmpi.w    #1,d0
  396.     beq.s    _fref        ; FAST
  397.  
  398.     cmpi.w    #2,d0
  399.     beq.s    _frelc        ; LARGEST CHIP
  400.  
  401.     cmpi.w    #3,d0
  402.     beq.s    _frelf        ; LARGEST FAST
  403.  
  404.     moveq    #0,d0        ; illegal n
  405.     rts
  406.  
  407. _frecf:
  408.     move.l    #CHIP,d1
  409.     jsr    _LVOAvailMem(a6)
  410.     move.l    d0,d4
  411.     move.l    #FAST,d1
  412.     jsr    _LVOAvailMem(a6)
  413.     add.l    d4,d0
  414.     rts
  415.  
  416. _frec:
  417.     move.l    #CHIP,d1
  418.     jsr    _LVOAvailMem(a6)
  419.     rts    
  420.  
  421. _fref:
  422.     move.l    #FAST,d1
  423.     jsr    _LVOAvailMem(a6)
  424.     rts    
  425.  
  426. _frelc:
  427.     move.l    #LARGEST,d1
  428.     or.l    #CHIP,d1
  429.     jsr    _LVOAvailMem(a6)
  430.     rts    
  431.  
  432. _frelf:
  433.     move.l    #LARGEST,d1
  434.     or.l    #FAST,d1
  435.     jsr    _LVOAvailMem(a6)
  436.     rts    
  437.  
  438. ;
  439. ; POTX(n) - returns A/D value of potentiometer-x (pin 5) of game controller.
  440. ;      - d0=n (0 or 1) and short integer returned in d0.
  441. ;      - in the current version, POTX(0) always returns 0 (game port 1).
  442. ;      - the hardware is directly sampled.
  443. ;
  444. _potx:
  445.     cmpi.w    #0,d0
  446.     beq.s    _potx0
  447.  
  448.     cmpi.w    #1,d0
  449.     beq.s    _potx1
  450.  
  451.     move.w    #0,d0    ; illegal n
  452.     rts
  453.  
  454. _potx0:
  455.     ; game port 1
  456.     move.w    #0,d0        
  457.     rts
  458.  
  459. _potx1:
  460.     ; game port 2
  461.     move.l    #POTGO,a0
  462.     and.b    #1,(a0)
  463.     movea.l    _DOSBase,a6
  464.     move.l    #1,d1
  465.     jsr    _LVODelay(a6)
  466.     move.l    #POT1DAT,a0
  467.     move.w    (a0),d0
  468.     and.w    #$00ff,d0    ; get low byte    
  469.     rts
  470.  
  471. ;
  472. ; POTY(n) - returns A/D value of potentiometer-y (pin 9) of game controller.
  473. ;      - d0=n (0 or 1) and short integer returned in d0.
  474. ;      - in the current version, POTY(0) always returns 0 (game port 1).
  475. ;      - the hardware is directly sampled.
  476. ;
  477. _poty:
  478.     cmpi.w    #0,d0
  479.     beq.s    _poty0
  480.  
  481.     cmpi.w    #1,d0
  482.     beq.s    _poty1
  483.  
  484.     move.w    #0,d0    ; illegal n
  485.     rts
  486.  
  487. _poty0:
  488.     ; game port 1
  489.     move.w    #0,d0        
  490.     rts
  491.  
  492. _poty1:
  493.     ; game port 2
  494.     move.l    #POTGO,a0
  495.     and.b    #1,(a0)
  496.     movea.l    _DOSBase,a6
  497.     move.l    #1,d1
  498.     jsr    _LVODelay(a6)
  499.     move.l    #POT1DAT,a0
  500.     move.w    (a0),d0
  501.     and.w    #$ff00,d0    ; get high byte
  502.     lsr.w    #8,d0        ; d0 \= 256
  503.     rts    
  504.  
  505. ;
  506. ; RND function. Returns pseudo-random number between 0 and 1 in d0. 
  507. ;         Makes use of amiga.lib RangeRand() function.
  508. ;
  509. _rnd:
  510.     move.l    #$ffff,-(sp)        ; max value+1 = 65535
  511.     jsr    _RangeRand        ; returns random # in d0 (0..65534)
  512.     addq    #4,sp
  513.     cmpi.l    #0,d0
  514.     bne.s    _0_to_1            
  515.     moveq    #1,d0            ; if zero returned, make d0=1
  516. _0_to_1:    
  517.     move.l    _MathBase,a6
  518.     jsr    _LVOSPFlt(a6)
  519.     move.l    #$ffff0050,d1       ; div by 65535.0 for 0 < value < 1
  520.     jsr    _LVOSPDiv(a6)
  521.     rts
  522.  
  523. ;
  524. ; RANDOMIZE - Changes amiga.lib's _RangeSeed with value in d0.
  525. ;            [see also factor() in ace.c]
  526. ;
  527. _randomise:
  528.     cmpi.l    #0,d0
  529.     bge.s    _randseed
  530.     neg.l    d0            ; make sure it's positive
  531. _randseed:
  532.     move.l    d0,_RangeSeed
  533.     jsr    _rnd            ; call RND once to avoid the same
  534.                     ; first value always being generated
  535.                     ; (bug in RangeRand?).
  536.     rts
  537.  
  538. ;
  539. ; print a line-feed.
  540. ;
  541. _printLF:
  542.     move.l    _stdout,d1
  543.     move.l    #_LF,d2
  544.     moveq    #1,d3
  545.     movea.l    _DOSBase,a6
  546.     jsr    _LVOWrite(a6)
  547.     rts
  548.  
  549. ;
  550. ; print a single space.
  551. ;
  552. _printspc:
  553.     move.l    _stdout,d1
  554.     move.l    #_SPC,d2
  555.     moveq    #1,d3
  556.     movea.l    _DOSBase,a6
  557.     jsr    _LVOWrite(a6)
  558.  
  559.     rts
  560.  
  561. ;
  562. ; print a question mark (for INPUT).
  563. ;
  564. _printqun:
  565.     move.l    _stdout,d1
  566.     move.l    #_QUN,d2
  567.     moveq    #2,d3
  568.     movea.l    _DOSBase,a6
  569.     jsr    _LVOWrite(a6)
  570.  
  571.     rts
  572.  
  573. ;
  574. ; SLEEP - wait for mouse/keyboard activity or a menu/gadget event.
  575. ;      (ie: an Intuition event!)
  576. ;
  577. _sleep:    
  578.     ; this routine gets called from C (menu.c)
  579.     movem.l    d0-d7/a0-a6,-(sp)    
  580.                 
  581.     ; IntuiMode?
  582.     cmp.b    #1,_IntuiMode
  583.     bne.s    _quitsleep
  584.     
  585.     movea.l    _AbsExecBase,a6
  586.  
  587. ;_reply_to_pending_msg:
  588. ;    movea.l    _Wdw,a0
  589. ;    movea.l    UserPort(a0),a0
  590. ;    jsr    _LVOGetMsg(a6)
  591. ;    tst.l    d0
  592. ;    beq.s    _intui_wait
  593. ;    movea.l    d0,a1
  594. ;    jsr    _LVOReplyMsg(a6)
  595. ;    bra.s    _reply_to_pending_msg
  596.     
  597. _intui_wait:
  598.     ; wait on IDCMP UserPort    
  599.     movea.l    _Wdw,a0
  600.     movea.l    UserPort(a0),a0
  601.  
  602.     jsr    _LVOWaitPort(a6)
  603.  
  604. _quitsleep:
  605.     movem.l    (sp)+,d0-d7/a0-a6
  606.     rts
  607.         
  608. ;
  609. ; open a shared library - a1=address of library name.
  610. ;            - return library base in d0.
  611. ;
  612. _open_library:
  613.     moveq    #0,d0        ; don't care which version
  614.     movea.l    _AbsExecBase,a6
  615.     jsr    _LVOOpenLibrary(a6)
  616.     rts
  617.  
  618. ;
  619. ; close a shared library - a1=library base.
  620. ;
  621. _close_library:
  622.     cmpa.l    #0,a1
  623.     beq.s    _quit_close_library
  624.     movea.l    _AbsExecBase,a6
  625.     jsr    _LVOCloseLibrary(a6)
  626. _quit_close_library:
  627.     rts
  628.  
  629. ;
  630. ; ERR - return error code from last I/O operation and clear error code.
  631. ;
  632. _err:
  633.     move.l    _error_code,d0        ; return error code
  634.     move.l    #0,_error_code        ; reset error code
  635.     rts
  636.  
  637. ;
  638. ; ON ERROR - return true or false depending upon whether an I/O 
  639. ;            error condition has been logged by an ACE function
  640. ;         (see serial and file functions).
  641. ;
  642. _testerror:
  643.     moveq    #0,d0
  644.     cmpi.l    #0,_error_code        ; is error code = 0?
  645.     bne.s    _quit_testerror        ; No -> indicate error present
  646.     rts
  647. _quit_testerror:
  648.     moveq    #1,d0            ; error condition present
  649.     rts
  650.  
  651. ;*****************************
  652.  
  653.     SECTION misc_data,DATA
  654.  
  655. ; * stick *
  656. _joy1dat:    dc.l     $dff00c
  657.  
  658. ; * strig & mouse *
  659. _data_reg_A:    dc.l     $bfe001
  660.  
  661. ; * printLF/SPC/QUN *
  662. _LF:        dc.b    10
  663. _SPC:        dc.b    32
  664. _QUN:        dc.b    63,32
  665.  
  666. ; * err & testerror *
  667. _error_code:    dc.l    0
  668.  
  669. ;************************
  670.  
  671.     SECTION misc_mem,BSS
  672.  
  673. ; * long/shortinput *
  674. _negate:              ds.b 1
  675.  
  676.     END
  677.